home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / misc / emu / zxtools.lha / src.lha / RemDev.S < prev    next >
Text File  |  1994-01-04  |  542b  |  48 lines
  1. ;---------------T
  2.  
  3. debug    equ    0
  4.  
  5.     ifne    debug
  6.     lea    cli(pc),a0
  7.     moveq    #cliend-cli,d0
  8.     bra.b    aa
  9. cli    dc.b    ' BaudBandit.device'
  10.     dc.b    10
  11. cliend    
  12.     even
  13.     endc
  14.  
  15.     incdir    'include/'
  16.     include    'exec/types.i'
  17.     include    'exec/exec_lib.i'
  18.     include    'exec/execbase.i'
  19.     include    'mine.i'
  20.  
  21.     addwatch    a0,s
  22.     addwatch    a1,s
  23.     
  24. aa    exec    a6
  25.  
  26.     sf    -1(a0,d0.w)
  27.  
  28.     moveq    #32,d0
  29.  
  30. .loop    cmp.b    (a0)+,d0
  31.     beq.b    .loop
  32.     tst.b    -(a0)
  33.     beq.b    Error
  34.  
  35.     move.l    a0,a1
  36.     lea    devicelist(a6),a0
  37.     jsrlib    FindName
  38.     tst.l    d0
  39.     beq.b    Error
  40.  
  41.     move.l    d0,a1
  42.     jsrlib    RemDevice
  43. Error    moveq    #0,d0
  44.     rts
  45.     
  46.  
  47.  
  48.